Hi.
bei deinen letzten Änderungen mit "Text" statt "Value" fehlten für meine Umgebung noch das rahmende "Val(.....)".
Im Folgenden ein Workaround für die Buttons:
Zuerst die 2 Prozeduren für die CommanButtons,
Dann die Änderungen je Prozedur 1 bis 18, hier nur für diee Bahn 1.
Private Sub CommandButton1_Click()
UserForm_Initialize
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub Bahn1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim varWert As Variant
varWert = Bahn1.Text
If Not IsNumeric(varWert) Then
If varWert <> "?" Then
MsgBox strHinweis
Cancel = True
End If
Cancel = False
Exit Sub
End If
If varWert > 7 Then
MsgBox strFehler
Cancel = True
Exit Sub
End If
If varWert = 0 Then
MsgBox strWeiterSo
End If
Call Berechne
End Sub
|